home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)td.d64
/
func.decimal
< prev
next >
Wrap
Text File
|
2007-02-28
|
328b
|
12 lines
0010 ╞╒╬├ DECIMAL(NUMBER$,BASE) ├╠╧╙┼─
0020 ─╔═ N$ ╧╞ 36
0030 N$:="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
0040 L:=╠┼╬(NUMBER$)
0050 ╔╞ L=1 ╘╚┼╬
0060 ╥┼╘╒╥╬ (NUMBER$ ╔╬ N$)-1
0070 ┼╠╙┼
0080 REST:=DECIMAL(NUMBER$(1:L-1),BASE)*BASE
0090 ╥┼╘╒╥╬ REST+DECIMAL(NUMBER$(L),BASE)
0100 ┼╬─╔╞
0110 ┼╬─╞╒╬├ DECIMAL